home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 12 / Tiger_Disk_012_19xx_Tiger-Crew-Disk_de_Side_B.d64 / musicolor _basic (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  33 lines
  1. 1 print"[147]sekunde, bitte!"
  2. 2 ifa=0thena=1:load"music 16",8,1
  3. 3 gosub10000:printchr$(14)
  4. 4 poke49162,00:poke49163,16:poke49257,03:poke49258,16
  5. 6 sys49152
  6. 10 print"[147][200]allo, [194]asic-[198]an!":print"[200]eute haben wir fuer [196]ich eine [210]outine"
  7. 20 print"von  [196][207][195] [211][206][217][196][197][210] / [212][201][199][197][210][195][210][197][215] [146]!"
  8. 30 print"[205]it dieser [210]outine, die wir zwecks      [214]ermeidung des [206]achladens";
  9. 40 print" mal wieder in":print"[196][193][212][193]-[218][197][201][204][197][206] untergebracht haben,"
  10. 50 print"kannst [196]u einen [212]ext von [196]ir nicht nur -"
  11. 60 print"[145]wie bei der [210]outine von [199][210][197][197][206][200][207][210][206] / [212][195] -auf einem zweifarbigen [211]creen";
  12. 70 print" dar-":print"stellen - [206][197][201][206]! : [196]u kannst ihn sogar   mit einer";
  13. 80 print" [205]usik 'untermalen'!"
  14. 90 print"[211]o, wie wir die [210]outine in diesem [208]rg.  verwenden, ist sie fuer [205]u";
  15. 100 print"siken gedacht,":print"[145]die bei  $ 1000 [146] beginnen."
  16. 110 print"[196]en [206][193][205][197][206] der [205]usik, die nachgeladen    werden soll, setzt [196]u in";
  17. 120 print"  [218][197][201][204][197] 2 [146] ein.":print"[194]ei [196]einem [212]ext musst [196]u jedoch darauf"
  18. 130 print"achten, dass dieser nicht zu lang wird, damit er nicht die [205]usik ueber";
  19. 140 print"schreibt!":print" [194]itte nenne auch bei [214]erwendung dieser"
  20. 150 print"     [210]outine den [206]amen des [195]oders !"
  21. 155 print"        [205][213][211][201][195] [194][217] [212][205][199] / [212][201][199][197][210][195][210][197][215] ":print" [196]eine         [212][201][199][197][210][195][210][197][215] "
  22. 160 poke198,0:wait198,1:list10000-
  23. 10000 fori=49152to49265:readq:pokei,q:next
  24. 10001 data 169,1,133,2,169,0,141,12,3,32,0,48,120,169,0,141
  25. 10002 data 18,208,173,17,208,41,127,141,17,208,169,129,141,26,208,169
  26. 10003 data 51,162,192,141,20,3,142,21,3,173,14,220,41,254,141,14
  27. 10004 data 220,88,96,173,25,208,141,25,208,173,18,208,201,146,176,19
  28. 10005 data 169,9,141,32,208,141,33,208,169,146,141,18,208,104,168,104
  29. 10006 data 170,104,64,169,8,141,32,208,141,33,208,169,0,141,18,208
  30. 10007 data 198,2,208,7,169,1,133,2,32,3,48,76,49,234,15,4
  31. 10008 data 9,18
  32. 10009 return
  33.